home *** CD-ROM | disk | FTP | other *** search
/ IRIX 6.2 Development Libraries / SGI IRIX 6.2 Development Libraries.iso / dist / complib.idb / usr / share / catman / p_man / cat3 / complib / clartg.z / clartg
Text File  |  1996-03-14  |  2KB  |  67 lines
  1.  
  2.  
  3.  
  4. CCCCLLLLAAAARRRRTTTTGGGG((((3333FFFF))))                                                          CCCCLLLLAAAARRRRTTTTGGGG((((3333FFFF))))
  5.  
  6.  
  7.  
  8. NNNNAAAAMMMMEEEE
  9.      CLARTG - generate a plane rotation so that   [ CS SN ] [ F ] [ R ]  [ __
  10.      ]
  11.  
  12. SSSSYYYYNNNNOOOOPPPPSSSSIIIISSSS
  13.      SUBROUTINE CLARTG( F, G, CS, SN, R )
  14.  
  15.          REAL           CS
  16.  
  17.          COMPLEX        F, G, R, SN
  18.  
  19. PPPPUUUURRRRPPPPOOOOSSSSEEEE
  20.      CLARTG generates a plane rotation so that
  21.         [ -SN  CS  ]     [ G ]     [ 0 ]
  22.  
  23.      This is a faster version of the BLAS1 routine CROTG, except for the
  24.      following differences:
  25.         F and G are unchanged on return.
  26.         If G=0, then CS=1 and SN=0.
  27.         If F=0 and (G .ne. 0), then CS=0 and SN=1 without doing any
  28.            floating point operations.
  29.  
  30.  
  31. AAAARRRRGGGGUUUUMMMMEEEENNNNTTTTSSSS
  32.      F       (input) COMPLEX
  33.              The first component of vector to be rotated.
  34.  
  35.      G       (input) COMPLEX
  36.              The second component of vector to be rotated.
  37.  
  38.      CS      (output) REAL
  39.              The cosine of the rotation.
  40.  
  41.      SN      (output) COMPLEX
  42.              The sine of the rotation.
  43.  
  44.      R       (output) COMPLEX
  45.              The nonzero component of the rotated vector.
  46.  
  47.  
  48.  
  49.  
  50.  
  51.  
  52.  
  53.  
  54.  
  55.  
  56.  
  57.  
  58.  
  59.  
  60.  
  61.  
  62.  
  63.                                                                         PPPPaaaaggggeeee 1111
  64.  
  65.  
  66.  
  67.